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000000 PPPPPPPP ccccccce 000000 MM MM UU UU TTTTTTITTT IIIIII LL 
000000 PPPPPPPP cccccccc 000000 MM MM UU UU TTTTTTTTTT IIIIII LL 
00 00 PP PP CC 00 00 MMMM MMMM UU UU TT II LL 
00 00 PP PP CC 00 00 MMMM MMMM UU UU TT Il LL 
00 00 PP PP CC 00 00 MM MM MM UU UU TT I] LL 
00 00 PP cc 00 00 MM MM MM UU UU TT I] LL 
00 00 PPPPPPPP cc 00 00 UU UU TT II LL 
00 00 PPPPPPPP cc 00 00 MM MM UU UU TT Il LL 
00 00 PP cc 00 00 MM UU UU TT Il LL 
00 00 PP cc 00 00 MM MM UU UU TT II LL 
00 00 PP cc 00 0O MM MM UU UU TT Il 
00 00 PP cc 00 00 MM MM UU UU TT II 
000000 PP ccccccce 000000 MM MM =UUUUUUUUUU TT IIIIII 
000000 PP cccccccc 000000 MM MM = =UUUUUUUUUU TT III! LLLLLLLLLL eeee 
LL IIIT] SSSSSSSS 
LL IIIII SSSSSSSS 
LL II $$ 
LL I] SS 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


| 

| 
LL cece 
LL coe 
LLLLLLLLLL eeee 

| 

| 
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1 60 MODULE OPCSOPCOMUTIL ( 
§ § LANGUAGE COL 13834) « 
00 IDENT = 'v04-000' 
3 005 ° 
$ ; Be CSE SESICLOSIIIS ICSE ET TET TT TTT TTT rrr e TTC TTI IIT ITT TTT Tari titiiiit 
j '@ * | 
: 08 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
009 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
19 ; Baty - ALL RIGHTS RESERVED. ~ 
\ B86 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
14 0014 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
7 > 0015 0 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 Bate 8 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
+ Bote 7° TRANSFERRED. : 
'® 
19 0019 5 't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 0 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
1 Be) : - CORPORATION. ~ 
: 00 : 8 iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 88 : 8 7° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
& 
6 00 $ 0 is * 
i 00 Q Lee e we eee RRA RARE AERA AERA AERA AEE AEE AEE AAA AAA 
; 0099 0 I+ 
0 0080 9 | FACILITY: 
g a op 
; 003% 9 ABSTRACT: 
0036 0! This module contains all the various and sundry general 
i i t4 0 purpose utility routines used by OPCOM's request handlers. 
33 444 : Environment: 
41 9041 : VAX/VMS operating system. 
“8 a948 : Author: 
45 Go¢s Steven T. Jeffreys | 
of 004? Creation date: 
49 049 : March 10, 1981 
5 O25 : Revision history: 
3g $088 i V03-006 CWH3169 Cw Hobbs 55-May-1984 
54 054 : Second pass for cluster-wide OPCOM: : | 
55 55 ! - Take BYPASS privilege to write to the user's mailbox, 
28 026 ; don’t let strange protections get in the way. , 
5 ; - Add conditional assembly code to dump messages which 
| 
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are going back to the operator. 


RSHO116 R. Scott Hanna 14-Mar-1984 
FORMAT MESSAGE / Replace the use of the local Literal 
MESSAGE_LENGTH with the symbol OPCSK_MAXMESSAGE. 


CWH3004 CW Hobbs 30-0c t-1983 
emove Linefeed at front of message, magtape ACP doesn't 
recognize the replies. 


CWH3003 CW Hobbs 16-Sep-1983 
Fix accvio caused by appending the final Line-feed as a 
longword. Use jacket routines for VM calls. 


CwH3001 CW Hobbs 30-Jul-1983 
Various and sundry things to make OPCOM distributed 
across the cluster. 


$TJ51320 Steven T. doftreys. 01-Dec-1982 
Fix message Length problem in SEND_REPLY. 
STJ0159 Steven T. Jeffreys, 08-Feb-1982 


Inciude a ‘bell* character in front of each ep 
that is formatted. Care must be taken to insure that 
the "bell* is not output to the log file. 


$TJ0091 Steven T. Jottrers. 13-Aug-1981 
Suppress facility code for INITAPE and BLANKTAPE. 


STJ0044 Steven T. Jeffreys 23-May-1981 
oe EM gee MESSAGE to superess facility code for 
ROSTCMPLTE, ROSTABORT, and RQSTPEND messages. This 
is necessary to enable existing code to parse the 
operator reply messages. 


! Start of OPCOMUTIL 


LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
LIBRARY ‘LIB$:OPCOMLIB'; 


FORWARD ROUTINE 
CHECK REQUEST, 


MAT MESSAGE, 
INTERPRET MASK, 


REPLY, 
"LENGTH; 


Common sanity checks 

Find an OCD with a given UIC or SCOPE 
Format an OPCOM message for output 
Interpret an attention mask 

Send a reply to a requestor ; 
Length of text of blank padded string 


Insert entry onto a queue 
Remove entry from a queue 
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} GLOBAL ROUTINE CHECK_REQUEST (BUFFER_DESC, BLOCK) = 
1 tee 
: ! Functional description: 
1 None. 
Input: 


points to the buffer containing the request 
read from the operator mailbox. 


Implicit Input: 
None. 
Output: 


—OODNOULSWN —"OVOONOUSE 


IN.WWIWROROPORoNoNonononuns ] 3 2 2 


WMO VDONAY FW OOODNOULSW 


RQCB : Address of longword to receive the 
address of an RQCB block. 


Implict output: 

None. 

Side effects: 

The RQCB block is partially filled in. 
Routine value: 


BUF FER_DESC : Address of a quadword buffer descriptor that 


TRUE : The request passed the sanity checks 
<anything else> : The request failed a sanity check 


! Start of CHECK_REQUEST 


BUF FER_DESC : Sref_bblock; ! Buffer descriptor 


EXTERNAL ROUTINE 
ALLOCATE_DS; 


Allocate a data structure 


AMAMNUMVIVIUUIES BEER L PRE 
SSRIS UFTUNVS SENSES LSES SELES s 


PPA BBE EPP EE 


o 


EXTERNAL LITERAL 
RQCB_K_TYPE, ; 
SCOPE, ! Minimum scope value 
61 SCOPE; ! Maximum scope value 
LOCAL 
RQCB : S$ref_bblock, ' RQCB structure 
MSG : Sref_bblock, ' Pointer to request 
STATUS : LONG; 


BLOCK = 0; Assume the request will fail 


ee ce a ee ce ee em ee De ee ee ee ee ed ed ed ed dd 
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i Create a pointer to the request independent data within the message buffer. 


j 
' RQCB structure type | 
| 
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oP OMUTIL 16-Sep-1984 01:37:47 AX-11 Bliss-32 V4.0-74 Pa 4 OP 
Obs 008 13-808- 1382 94:35 38 OPCOM.SACTOPCOMITIL 03951 9 02) vo 
: 171 17 1 : 
; 1% 3 MSG = .BUFFER_DESC CDSCSA_POINTER] + OPC$K_COMHDRSIZ; : 
; 1 ne If the SCOPE is bogus, then ignore the request. : 
; 176 129 if (MSG COPC$B_SCOPE] LSS MIN_SCOPE) OR (.MSG COPC$8_SCOPE] GTR MAX_SCOPE) ; 
: 178 177 RETURN (SS$_BADPARAM) ; : 
; 180 Hf Allocate an RQCB : 
; 182 1 3 IF NOT (STATUS = ALLOCATE_DS (RQCB_K_TYPE,RQCB)) ; 
: 184 5 RETURN (.STATUS); ; 
; 18 , 5 Copy the request independent data to the RQCB. 3 
: 188 18 CHSMOVE ((SBYTEOFFSET<ROCB_L_MCB) - SBYTEOFFSET(RQCB_W_MSGTYPE)), : 
: #189 188 sBurrER DESC CDSCSA-POINTERJ, F 
: 190 0189 ROCB CROCB_W_MSGTYPE) : 
; 191 0190 3 3 
; 198 0191 2! ; 
3 Ve? 3136 Set the Lengths of the blank-padded strings : 
: 195 $194 ROCB CROCB_u _USERNAMEL EN] = TRIM_LENGTH (RQCB_S USERNAME, RQCB CROCB_T_USERNAME]); ; 
; 196 0195 ROCB CROCB_W_ACCOUNTLEN] = TRIM_CENGTH (RQCB_S_ACCOUNT, ROCB CROCB_T-ACCOUNTJ); : 
; 198 0199 i Default the UIC to the sender's UIC. : 
; 199 0198 ! F 
; 200 0199 if .RQCB CROCB_L_UIC] EQL 0 : 
; 208 0201 RQCB CROCB_L_UIC] = .ROCB CROCB_L_SENDERUIC); ! Set VIC : 
> 204 $508 .BLOCK = .RQCB; ' Set RQCB address : 
; 205 0204 RETURN (TRUE); ' If we get this far, it's ok. : 
; 206 0205 1 END; ! End of CHECK_REQUEST : 
TITLE OPCSOPCOMUTIL ; 
“IDENT \V04-000\ : 
.EXTRN ALLOCATE_DS, RQCB_K_TYPE : 
“EXTRN MIN_SCOPE, MAX_SCOPE : 
.PSECT S$CODES,NOWRT,2 : 
007¢ 00000 .ENTRY CHECK_REQUEST, Save R2,R3.R4,R5,R6 > 0113 : 
SE 04 C2 9002 SUBL2 #4, SP : : 
08 BC 04 0000 CLRL  aBLOCK > 0167 : 
5 04 AC DO 00008 MOVL BUFFER DESC, R2 : 0171 ; 
50 04 A 36 C1 0000C ADDL3 #38, 4TR2), MSG : : 
000000006 8F 01 AO 0 00 FD gor cMPZV #0. #8, 1(MSG), #MIN_SCOPE > 0175 ; 
000000006 8F 01 AO 08 00 E 001 CMP2V #0, #8, 1(MSG), #MAX_SCOPE : : 
4 0 BLEQ 2$ : : 
50 14 p 029 1$ MOVL #20, RO > 0177 : 
4 0002C RET : : 
| 
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118 bytes, Routine Base: S$CODE$ + 0000 


3; Routine Size: 
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Obs 5008 1a-8ep-19 4 043038 OPCOM. cRCTOPCOMUTIC 63551 . of 
; 208 i } GLOBAL ROUTINE FIND_OCD (SCOPE, UIC, BLOCK) = | : 
; 210 8 1 its | i 
3 1} % } } Functional description: : 
: ig 1171: This routine will scan through the OCD data base and locate the | ; 
: i 8 \§ ! } OCD described by the given SCOPE and UIC. : 
: 216 0214 1 ! Input: | , 
3; er 0215 1! | 
; 18 0 1 1! SCOPE : The SCOPE of the target OCD. 
: 33 8 i } } UIC : The UIC of the target OCD. 
; 8 1 : Implicit Input: 
: Q221 1! None. 
: & 0 ¢ 1! 
3 5 0 1 ! Output: 
; 226 0224 1! 
3 der 0225 1! BLOCK : Address of a longword to receive the address of the OCD. 
: 299 8ss$ ! If the OCD is not found, then the address will be zero. 
: $30 0999 : Implict output: 
3 $36 0230 1! None. 
: $3 0231 1! 
3: 234 0232 1 ! Side effects: 
. oa 0235 1! 
: 236 0234 1! None. 
: 237 Ose 1! 
3 $36 o¢38 ; Routine value: 
; $20 its 1! TRUE : If the OCD is found 
; $e) | 24 : FALSE : If the OCD is not found 
: 28 0504 1 
i bu 0942 2 BEGIN ! Start of FIND_OCD | 
: Ste 0244 3 MAP | 
5 Ser Ose? vIc : $Sref_bblock; ! Target UIC | 
; 209 094? 5 EXTERNAL LITERAL 
; 250 0248 MIN_SCOPE, ! Minimum (most privileged) scope | 
: $2) 0950 MAX_SCOPE; ! Maximum (least privileged) scope 
: $38 0251 2 EXTERNAL ' | 
3 33 063¢ OCD_VECTOR : VECTOR; ! Pointers to OCD List heads | 
: 256 0934 LOCAL | 
3; ao 55 OcD : $ref_bblock, ! OCd data structure 
3s 238 O529 OCD_COUNT : LONG, ' Count of OCDs in the OCD List 
3 +4 0 3 FOURD : LONG; ! Used as loop control and routine value holder 
: 261 0 59 2! | 
: o¢ 60 ! Seach through the specified List of OCDs to locate 
; € 0261 ! an OCD that matches the specified UIC. The OCD List 
3 264 0262 : scanned depends on the SCOPE. 
: | 
| 
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! Zero address 


The SYSTEM OCD List is a special a + as the List 
Length will either be 


1 or Get the address of 


3 
4 
3 ' 
i 
0 i 
8 1 ' the OCD List header, and return the List count as 
§ the routine value. 
0 4 .BLOCK = .OCD VECTOR GC. -SCOPE = 1)*2]); 
5 FOUND = .OCD_VECTOR C(.SCOPE - 1)#2+1); 
8 $ END; 
9 § COPC$K_GROUP) : BEGIN 
$5 0 Scan through the GROUP OCD List seaching for an OCD 
8 1 with a UIC group field that matched the one specified. 
0588 bcp = .OCD_VECTOR C(.SCOPE - 1)*2]; ! Get address of first OCD in List 
ogee OCD COUNT = .OCD_VECTOR C(.SCOPE = 1)*2+1]; i Get # of OCDs in the List 
0285 FOUND = FALSE; i Assume not found 
oso WHILE 06D enue NT GTR 0) AND (NOT .FOUND) DO 
028 IF .UIC C0,16,16,0J EQL .OCD C$BYTEOFFSET (OCD_L_UIC),16,16,0] 
0288 3 THEN 
0289 4 BEGIN ' We found it 
0290 4 -BLOCK = .OCD; ! Save addres of OCD | 
0291 4 FOUND = TRUE; ! Note that we found it 
OS3¢ 4 END 
0293 3 SE 
0294 4 BEGI 
0295 4 OCcD_ COUNT = -OCD_COUNT - 1; ' Decrement OCD count 
0296 4 OCD™= .OCD COCD_C_FLINKI; ' Get address of next OCD 
0297 3 END; 
0298 END; 
5344 
Bene COPC$K_USER) : BEGIN 
a4 Scan through the List of USER OCDs jogking for an 
O36 OCD with the SAME UIC as the specified Ul 
0 = .OCD_VECTOR ct Scone - 1)*2); ' Get address of first OCD in List 
8 COUN NT = .OCD_VECTOR C(.SCOPE = 1)*2+1); ' Get # of OCDs in the List 
D = FALSE; ' Assume not found 
0 E (.0CD_COUNT GTR 0) AND omg .FOUND) DO 
0 IF .UIC™EQL ToeD COCD_L 
0 THEN 
0 4 BEGIN ! We found it 
8 & -BLOCK = .OCD; ! Save addres of OCD | 
4 FOUND = TRUE; ' Note that we found it 
4 END 
3 ELSE 
4 BEGIN 
4 OCD_COUNT -OCD_ COUNT = 1; ' Decrement OCD count 
8 $ oe = “OCD wala C_FLINKI; ' Get address of next OCD 


END; 
: FOUND = FALSE; 


! Bogus SCOPE 


! End of FIND_OCD 
.EXTRN OCD_VECTOR 
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: 1 8 ] GLOBAL ROUTINE FORMAT_MESSAGE (RQCB, MESSAGE_VECTOR) = 

: : 0 1 !+44 

: ¢ 1 ! Functional description: 

: : 1 Given an RQCB address and a wy code, this routine will 

: ¢ : } format the message and build an MCB to describe the message. 

: 339 1 i Input: 

: 340 BY te 

3 1 8 1! RQCB : Address of an RQCB. 

; § ? ! } MESSAGE_VECTOR =: Address of a longword vector 

; 4 4] | Implicit Input: 

3 ré 8 “§ : ; The format of the message vector is as follows: 

: 3 Bee? : space wjasoenceea = heals eeeeceooeecen . 

$50 oF 1 | Sosieitionni an domo 

3 ! : t t 

3 26 0349 1 ' EER mene Bi oe + 

; 0350 1! H first arguement } 

2 54 0351 1 ' Goeoeeeooeeoeeeoeoooecoesceccocecca + 

; 355 BEe6 1! : " | 

3 328 03535 1! " 

; 28 S3e¢ i i Nth ar t 

: 359 0356 1: EIT A ee I ‘ 

: 360 0357 1! 

3 1 0358 1 ! Output: 

3 ¢ 0359 1! 

3 0360 1! None. 

: 5 8 ¢) i Implict output: 

: 366 0363 1: 

s 367 0364 1! None. 

3 8 0365 1! 

; 369 0366 1! Side effects: 

: 37 o8e8 1 | ns 

: 37 tk: 1: : 

: a O31 ! Routine value: 

: 75 374 1! TRUE : If the message was formatted and an MCB created 
: 76 $2 : <anything else> : The message could not be formatted and an MCB created. 
HB Bd accin 

: 380 4 

; «381 78 P 

; 4 7 MESSAGE_VECTOR : REF VECTOR, ' Message info 

: 0 $0 ROCB : $ref_bblock; ' RQCB data structure 
; BS é EXTERNAL ROUTINE 

; 386 038 ALLOCATE_DS ' Allocate a data structure 
: 7 0384 DEALLOCATE_OS; ! Deallocate a data structure 
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| 

H 5 $ 
; 89 § EXTERNAL LITERAL | : 
; RQCB_K TYPE, : 
; 4 MCB_R_TYPE; : 
: 398 LITERAL | : 
; 394 9) ASCII BELL =7 ! ASCII ‘bell* character ; 
; 395 3 LINE FEED = 16, i ASCII Line feed ; 
5 38 9 MSG_FLAGS1 = 9, ! Get message ad ge and text. ; 
; 39 94 MSG_FLAGS2 = 1 ! Get message text only. ; 
; a8 2 TEXT_LENGTH = 256; ! Max VMS message text size ; 
: 400 37 § own | 
; 401 28 HEADER _BUF : VECTOR (100) ! Buffer to hold header FAO string ; 
: 408 HEADER DESC : VECTOR ¢. LONGI i Descriptor for header string : 
; ret rts PRESET (C1) = HEADER_BUF); ° 
; 405 40¢ ¢ LOCAL | ; 
; oe 40 OUT_LENGTH : LONG, ; a text length ; 
; 40 04 OUT_ARRAY : LONG, ' Output for SGETMSG fe 
: 408 0405 TEXT_DESC : $desc_block, ! Message text descriptor et 
; 409 Bee TEXT _BUFFER : Sbblock CTEXT_LENGTH] ! Maximum message size ; 
; 410 40 TEXT _BUFFER2 : Sbblock TEXTILENGTH+100J, ! Reformatted message ctrstr : 
3 411 0408 MESSAGE _DESC : $desc_block ! Formatted message descriptor : 
i le 0409 MESSAGE-BUFFER : $bblock COPCSK_MAXMESSAGEJ, | Formatted message buffer ; 
3 (41 0410 BUFFER_POINTER : $ref_bvector, ' Holds address of a VM block : 
> 414 0411 MCB : Sref_bblock, ! MCB data structure : 
3: 415 beig BLOCK : Sref_bblock, ! VM block for message : 
3 rat gel? STATUS : LONG; : 
3 $13 gel } Set up buffer descriptors : 
: 420 0419 TEXT_DESC (0,0,32,0] = TEXT_LENGTH; ! Set text buffer size : 
; gi 04618 2 TEXT-DESC CDSC$A POINTER ="TEXT BUFFER; i Set text buffer address ; 
; 4 ¢ 0419 E_DESC to 0,32,0) = OPCS$K_MAXMESSAGE; ' Clear message size 3 
: 42 0420 2 MESSAGE-DESC CDSCS$A_POINTER] = MESSAGE_BUFFER; | Set message buffer address ; 
: O53 oes2 3 | 
3 $s6 be § Get the message text via SGETMSG. : 
; 428 P 0425 IF NOT (STATUS = SGETMSG (MSGID = .MESSAGE_ VECTOR [0], . : 
: £33 P 04 $ MSGLEN = OUT_LENGTH, : 
: 6 P 04 BUFADR = TEXT_DESC | ; 
: 431 P 04 a FLAGS = (IF TMESSAGE_VECTOR 0 EQL OPC$_ROSTCMPLTE : 
; 6 P 04 OR :MESSAGE-VECTOR EQL OPC$~RQSTABORT | : 
: 43 P 0430 OR :MESSAGE-VECTOR CO] EQL OPCS~ROSTPEND F 
; 434 P 0431 OR .MESSAGE VECTOR CO) EQL OPC$_BLANKTAPE 
3; 435 P ¢ OR .MESSAGE_VECTOR CO] EQL OPCS_INITAPE 
; 4 P THEN | 
: 437 P 0434 MSG_FLA%S2 
° | 
i 439 P MSG_FLAGS1 
Py ’ | 
3 ret P 38 ,poraee = OUT_ARRAY 
3; 44 440 2 THEN 
3 444 41 $signal_stop (.STATUS); | 
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“ JERT DESC COSCSW_LENGTH] = .OUT_LENGTH; 
re If the message control string starts with ‘XOPCOM, %D%'’, then perform a Little substitution 
rc "1 if cHSEGL (11, UPLIT BYTE ('ZOPCOM, 20%"), MINU (11, .OUT_LENGTH), TEXT_BUFFER, 0) 
1 BEGIN 
LOCAL 


On the first reference, get the header text from the message file 
iF .HEADER_DESC (OJ EQL 0 
THEN 


BEGIN 
HEADER_DESC (0J = 100; 
IF NOT (STATUS = SGETMSG (MSGiD=OPCS_HEADER, MSGLEN=HEADER_DESC, BUFADR=HEADER_DESC, FLAGS=1)) 


> 
PDEA AAS £ EE 


OOO NAU EWN 0 OONAOUE wry 


HEN 
$Ssignal_stop (.STATUS); 


s 4 

: 4 

3 5 

5 4 

3 4 

ie 64 N o 

: 465 046 ADJ = .HEADER_DESC [0] - 11; 

3 $98 6 CHSCOPY (. HEADER DESC £03 HEADER DESC (1), 

; 46 0464 -OUT_L TH=1 TEXT BUFFER+11, 0, .OUT_LENGTH + .ADJ, TEXT_BUFFER2); 
; 468 p66 TEXT_DESC CDSCSW_LENGTH] = .OOT_LENGTH + .ADJ; 

; 469 4 TEXT_DESC COSCSA_POINTER] = TEXT_BUFFER2; 

: 470 467 END; 

3; 471 468 : 

3; 47 0469 ! Format the message via FAOL. 

: 47 0470 ‘ 

; 476 0471 OUT_LENGTH = 0; 

3; 475 P 047 IF NOT (STATUS = SFAOL (CTRSTR = TEXT_DESC, 

: 476 P 047 OUTLEN = OUT CENGTH 

: 477 P 0474 OUTBUF = MESSAGE_DESC, 

3; 478 P 0475 PRMLST = MESSAGE_VECTOR (1) 

; 479 0676 

; 480 047 N 

: 481 0478 $signal stop (. STATUS); 

; 48 0479 2 MESSAGE_DESC CDOSC$W_LENGTH) = .OUT_LENGTH; 

: 48 0480 

: 486 0481 : 

; 485 Bee ! Allocate a block of memory to hold the formatted message text, 

; 486 Bes ! and copy the message text to it. Tack a ‘bell’ onto 

: re 34 04 3 : the front of the message. Add an extra line feed to the end. 

; ret bese OUT_LENGTH = .OUT_LENGTH + 2; 

3 490 48 IF ROT (STATUS = OPCSGET_VM (OUT_LENGTH, BUFFER_POINTER)) 

; 491 88 THEN 

; 49 89 RETURN C STarys): 

; 49 90 BUFFER_POINTER CO] = ASCII BELL; 

3; 494 91 CHSMOVE (.OUT naelee -MESSAGE_DESC COSCSA_POINTER], .BUFFER_POINTER*+1); 
: 495 3 BUFFER_POINTER C.OUT_LENGTH-1) ="LINE_FEED; 

; i99 94 : , 
: 498 495 ' Allocate an MCB for the yy + t 
3; 499 38 ! If one is already present on the RQCB, then 4 
; 300 49 ! deallocate it ong allocate a new one. 

s 30 498 ! Fill in the required MCB fields and attach it 
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3 oe 499 ' to the RQCB. If the allocate fails, then free | 
: 04 301 } the message buffer block that was fist allocated. 
; 505 2 3 if .RQCB CROCB_L_MCB] NEQ 0 | 
; oF $04 DEALLOCATE_DS (.RQCB CROCB_L_WCB)); 
3 08 $06 IF NOT (STATUS = ALLOCATE_DS (MCB_K_TYPE, MCB)) | 
: $11 508 RETURN (. STATUS); | 
3 \¢ 0509 MCB CMCB_L_ MSGIDJ = MESSAGE VECTOR C0]; ! Set message code 
3 2] 9319 MCB CMCB_L_ TEXTLEN LEN ! Set the message Length | 
; «45146 511 MCB LMCB_L_TEXTPTR yi POINTER: ' Set message address 
; 515 O51¢ MCB CMCB-L-RQCB) = ROCB CHDR_C_FLINK): i Set RQCB address 
: 218 $31? ‘2 RQCB CROCB-L_MCB) = .MCB; ' Set MCB address 
; 216 0515 2 RETURN (TRUE); 
: 519 0516 
; 520 0517 1 END; ! End of FORMAT_MESSAGE 
.PSECT $PLIT$,NOWRT,NOEXE,2 | 
25 44 25 20 2C 4D 4F 43 SO 4F 25 00000 P.AAA: .ASCII \%OPCOM, %D%\ : 
.PSECT SOWNS,NOEXE,2 
00000 HEADER_BUF : poe | 
00# 00190 HEADER_DESC: 
-—BYTE O€4] 3 
00000000" 00194 “ADDRESS HEADER_BUF ; 
.EXTRN DEALLOCATE_DS, MCB_K_TYPE 
-EXTRN SYSS$GETMSG, LIBS$STOP 
SEXTRN SYSSFAOL, opt seer _VM 
.PSECT S$CODES$,NOWRT,2 
OFFC 00000 ENTRY FORMAT -MESSAGE., Save R2,R3,R4,R5,R6,R7,%8,- ; 0328 
5B 0000" CF 9E 0000 MOVAB HEAD R’ DESC R11 : 
5E 9990 E 3 9900 MOVAB “363 Bets) §p ; 
F8 AD 0100 8F 3C 0000 MOVZWL DESC : 0417 
FC OAD FEF8 CD 9€ 0015 MOVAB TEXT ze ‘oUFreR ghtx! DESC +4 > 0418 
FD8C = CD 0800 &8F %3C 0001 MOVZWL #2048 > 0419 
FD90 «= CD 10 AE 9E OO01F MOVAB MESSAGE "SUFFERS Phe SSAGE _DESC+4 F 0420 
5E DD 000 3 PUSHL SP > 0439 
50 08 BC DO 000 MOVL Ry. asgoets RO : 
00058029 8F 0 D1 09 8 CMPL ; 
24 13 00 BEQL 4 =s«1$ : 
0005801C 8F 0 01 99 CMPL RO, #360476 : 
18 13 9 BEQL «=s«1$ : 
00058021 8F 30d} 000 CMPL «RO, #360481 | 
12 13 00044 BEQL «=s«o1$ ; 
000581E3 8F 50 D1 00046 CMPL = RO,- #360931 ; | 
| 
| 
| 
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$ 

0, #360915 

b J 

1 

$ 

9 

EXT_DESC 
| orem 
#5, SYSSGETMSG 
RO STATUS 

STATUS, 5$ 
OUT_LENGTH, TEXT_DESC 
OUT_LENGTH, RO 
RO, #11 
4$ 
#11, RO 
#11, P.AAA, #0, RO, TEXT_BUFFER 
$ 

HEADER_DESC 

#100, HEADER_DESC 

a =(SP) 


#361139 
5, SYSSGETMSG 
STATUS, 9$ 

#11, HEADER_DESC, ADJ 
#11, OUT LENGTH, R 
OUT L NGTH, ADJ. R6 
TEXT BUFFER2 


»_R7 
HEADER_DESC, @HEADER_DESC+4, #0, R8, (R7) 


7$ 

HEADER_DESC, R7 

HEADER-DESC, R8 

RO, TERT_BUFFER+11, #0, R8, (R7) 


R6, TEXT DESC 
TEXT BUFFER2, TEXT_DESC+4 


OUT_ 
#4, "MESSAGE_VECTOR, -(SP) 
MESSAGE DESC 

OUT LENGTH 

TEXT DESC 

#4, SYSSFAOL 

RO STATUS 

STATUS, 10$ 

STAT 

#1, LIBSSTOP 


OUT_LENGTH, MESSAGE _DESC 
#2, OUT_LENGTH 
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; Routine Size: 


01 


vwiru' 
ono 


400 bytes, 


1 
1 
of AE oF 11¢ 
Cc (OA F OOF 
00006 gf F 1 ¢ 
& Dd 1 
41 AE 1¢A 
57 06 =A 3 12D 
67 134 
08 AE 3 § 1 
FD90 bp 139 
08 AE 3 100 
FF OA OA 14 
5 04 AC OD 149 
6C A2 D 14D 
08 13 0015 
6C Ae 0D Bete 
0000G CF 01 FB Bat 
OC AE 9F OO15A 
00000000G 8F DD Botas 
00006 CF 9¢ FB 0016 
5A 50 DO 00168 
04 5A €E8 00168 
50 5A DO 0016E 
04 00171 
50 OC AE 00 00172 
C Ad 08 BC 00 00176 
0 Ad 08 AE 00 00178 
4 Ad 57 DO 00180 
24 = AD 52 00 00184 
6C A2 50 00 00188 
50 01 DO 0018C 
04 0018F 


Routine Base: 


SCODES + 0108 


ct 


=] 
Sep 


11$: 


12$: 
13$: 


Be 12:50:54 


AX-11 Pi igs 
OPCOM.SRCJO 


PUSHAB BUFFER POINTER 


ve 


PUSHAB : T_LENGTH 

CALLS » OPCSGET_VM 
MOVL 4 STATU 

BLBC STATUS, 12$ 

MOVL BUFF ER POINTER, R7 
MOVE » (R?) 

SUBL 2, OUT_LENGTH 
MOVC ame SSAGE wpesess, 1(R7) 
ADDL3 OUT_LENGTH 

MOVE #107 -1(ROS 

MOVL Race R2 

TSTL 108(R2) 

BEQL 

PUSHL  108(R2) 

CALLS #1, DEALLOCATE_DS 
PUSHAB MCB 

PUSHL #MCB_K_TYPE 

CALLS #2, ALCOCATE_DS 
MOVL TUS 

BLBS STATUS, 13$ 

MOVL STATUS. RO 

RET 

MOVL 


RO 
MOVL anESSAGE pat yf TO as 


MOVL OUT BreTn. 48 
MOVL Te. 

MOVL R2, 36(RO) 
MOVL RO, 108(R2) 
MOVL #1, RO 

RET 
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; § } } GLOBAL ROUTINE INTERPRET_MASK (BIT_MASK, STRING_DESC, OUTLEN) = | | 
: 524 1 144 . | 
; 5 : ; Functional description: , 
3 ? ' pin ag hag Ah SF a a 64 bit mask, and format an ASCII string that will name each 
Ph a= | 
; : in g 
531 358 ji ineu 
3 ¢ 82 $ 1! BIT_MASK : Address of a 64 element bit vector 
; 2 11 STRING_DESC : Address of a ——s descriptor to receive the output 
: : b2 ? : } string that names the bits in the mask. 
. 0532 1 | Implicit Input: 
: 537 gesg yi i" a 
; 0534 1! None. 
: 806 et ot Qmas i 
: $41 Reap jj Cutouts 
; 246 bese : OUTLEN : Address of e longword to receive the length of the 
3 ! ring. 
: 544 0540 1 i wrinepebyeabti 
: 545 0541 1 ! Implict output: 
; 46 p25 1! 
; 547 0545 1! None. 
3 48 0544 1! 
; 549 0545 1! Side effects: 
3 590 B28 1! 
3s 331 0547 1! None. 
3 228 05466 1! 
3; 0549 1 ! Routine value: 
: 554 0550 1! 
: 555 0551 1! TRUE : Successful completion 
; 556 3236 1! <anything else> : The operation failed 
: 557 0553 1 !-- 
3 228 0554 1 
: 329 B2e2 BEGIN ! Start of INTERPRET_MASK 
: 561 0557 2 MAP 
3 266 0558 STRING_DESC : $ref_bblock, ! String descriptor 
3 07 3222 BIT_MASK : REF VECTOR; ! Quadword mask 
; ses O96] ¢ EXTERNAL 
3 $8 B20 OPER_NAME : VECTOR C, LONG); ! Names for bits, from OPCOMDATA.MAR 
3 He 0564 LITERAL 
me i = BERR ASEH tane'ggegretr 
3 = ° ' ne fe 
: 571 567 MSG_FLAGS = 1 ' Only get message text 
: a 208 < L = 46, ! Maximum bit name Length 
: y 292 MAX~LINE = 80; ! Maximum Length of an in 
: He 571 2 OWN | 
: 4 | 276 SEPARATOR DESC =: $string_desc (", *), ! Name separator | 
; 27 57 NEWLINE_DESC  : $string~desc (ZCHAR (',',CRLF)); 
; 578 0574 


uw 
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vOe-000 18-Sep-1986 12:50:81 LOPcon. SRcSOPCOMU 


; 579 75 LOCAL 

; 0 6 LONG ! {pdex 

: 581 7 MASK BiTVECTOR C32, i 32 bits of the quadword mask 

3 ¢ A REF VECTOR C, LONG], ! Pointer to name string 

; 7 WORK _DESC sdoec block ! Descriptor of work buffer 

; WORK “BUF Sbblock COPESK_MAXREAD],! Work buffer 

3 +H 581 NAME _ DESC goeec black. ! Descriptor for bit name 

; 5 ¢ €_8UF Sbblock CMAX_NAM_LEN],! Buffer for bit name 

; 587 5 PTR G, ! Pointer to current point in buffer 

; 588 5 LEN : LONG, ! Length of current string 

3 14 2 5 STATUS : LONG; 

; 591 ' 

s 4 S88 } Return FALSE if the output buffer descriptor is strange. 

: 534 Sage if (.STRING_DESC CDSC$W_LENGTH] LEQ 0) OR (.STRING_DESC CDSCSA_POINTER] EQL 0) 

; 336 059¢ | RETURN (FALSE); 

: rh B20e Set up the work buffer descriptor. 

; 600 0596 WORK_DESC [0,0,32,0] = 0; 

; 601 097 WORK~DESC DSC$A_POINTERS = WORK_BUF; 

; £08 0599 i If the bit mask is not zero, then for each bit set in the mask et the name of that bit from 
; 604 0600 ! the name vector. The bit name is obtained by using the bit position as an index into the OPER_NAME 
; 605 0601 ! vector. Each entry in the name vector is a longword pointer to a string descriptor for the name. 
; one 8008 : If the name is undefined, the pointer will be zero. 

: 608 0604 2 PTR = ,WORK_DESC CDSCSA_POINTER]; 

: 609 Bop? LEN = 0; 

; 610 606 INCR I FROM 0 TO 1 DO 

3 ot oat BEGIN 

; gi 0609 i Go rou the loop twice, each pass checking 32 bits. 

3 $18 2019 As an optimization, avoid the loop if the mask is zero. 

i 616 O32 if _BITMASK C.1] NEG 0 

; 618 0614 & BEGIN 

; 619 0615 4 MASK = .BIT_MASK (.1); ! Get 32 bits to check 

5 e , get8 $ seat Sat 0 TO 31 DO 

: 6 é 0618 5 IF .MASK C.J) 

; 6 1 THEN 

: 624 96 0 6 BEGIN ; : ix 
; 625 1 6 NAME = .OPER_NAME (((.1 * 32) + .J)];  ! Calculate byte position from bit position 
: 6 $ 06 § 6 IF .NAME EQL 0 ! If null, use special name 

3; © § THEN 

: 628 4 BEGIN 

3; 629 5 7 NAME _DESC fo 0,32,0) = 1; 

; 6 0 $ 4 NAME~DESC COSC$A_POINTER) = UPLIT BYTE ('?"); 

i 6 

: 8 ; NAME “DESC [0,0,32,0) = .NAME (0); 

: $3 1 7 NAME ~DESC EOSc$A POINTERS = .NAME (1); 
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END; 
If the name will not fit on the Line, start a new Line. 
Allow for the ° that preceeds each new nane,. Allow 


one space at the -_ of the Line to hold a 


aQiuacacacacacs 


iF: -LEN + .NAME_DESC COSC$W_LENGTH] + 2) GTR (MAX_LINE = 1) 
BEGIN 
CHSMOVE (.NEWLINE DESC CDSC$W_LENGTH], .NEWLINE_DESC CDSCS$A_POINTER], .PTR); 
PTR = pT + .NEWCINE_DESC COSCS$W_LENGTH); 
END; ; 


If not at the beginning of a Line, preceed the name with "’, "’. 
if .LEN NEQ 0 
THEN 


BEGIN 
or . SEPARATOR pest COSC$W_LE 
«PTR + .SEPARATOR_DESC CDSC$ 
CEN = LEN : * SEPARATOR™ DESC COSCSW 
END: 
Append the name to the end of the work buffer. 


CHSMOVE ( ¢ NAME DESC COSC$W owt «NAME_DESC CDSCSA_POINTER], .PTR); 
PTR = .PTR + .RAME DESC COSC$W_LENGTH); 
i “LEN + .NAME “DESC COSC$W_ LENGTH]: 


END; 
' END; i 


Determine how much text was copied to the work buffer. 
WORK DESC CDOSCS$W_LENGTH] = .PTR = .WORK_DESC CDSCSA_POINTER); 


O LENgTIng DESC CDSCSA_POINTER], .PTR); 
“LENGTHI; 


t 
: If no bits were named, then return a special message. 


IF -WORK_DESC CDSC$W_LENGTH] EQL 0 
BEGIN 
WORK DESC CDSC$W_LENGTH] = 
LF NOT (STATUS ="$GETMSG rm 
2 RETURN (.STATUS); 


C$K_M 
iDsOPCs RAOTENABLED, MSGLEN=WORK_DESC, BUFADR=WORK_DESC, FLAGS=MSG_FLAGS)) 


Copy the work buffer to the out ut buffer. If the output 
buffer is not carge enough, fill the output buffer and return 
SS$_BUFFEROVF to indicate a buffer overflow. 


ATUS = 


} cess 
STRING. AOE SC CDOSC$W_LENGTH] LSS .WORK_DESC coscsu SUENGTHS 


mgeme fhe wc mc acaca 


ST 
F 
H 


oO 
mn 
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16-5 
1823 


1 


5 
2-188 1 


47 
51 


INTERPRET MASK, Save R2,R3,R4,R5,R6,R7,R8,- 


AX-1 


1 Ot igs 
OPCOM.SRCJOP 


; 693 689 WORK_DESC COSC$W_LENGTH] = .STRING_DESC COSC$W_LENGTH); 
; oge a STATOS = $S$_BUFFEROVF; 7 Be 
: 6 9 CHSMOVE (.WORK DESC CDSC$W_LENGTH], .WORK_DESC CDSCSA_POINTER], .STRING DESC CDSC$A_POINTER]); 
; 97 98 -OUTLEN = .WORR DESC CDSCS$Q_LENGTHI; Py st 
; 698 069% RETURN (. STATUS; 
; 700 0696 1 END; ! End of INTERPRET_MASK 
-PSECT SPLITS,NOWRT,NOEXE,2 
00008 P.AAB: .ASCII \, \ 
OA OD 2C O000D P.AAC: . ASCII \.\<13><10> 
00010 P.AAD: .ASCII \?\ 
.PSECT SOWNS,NOEXE,2 
0002 00198 SEPARATOR_DESC: 
.Q@ORD 2 
01 O& 0019A BYTE 14, 1 
00000000" 0019¢ .ADDRESS P.AAB 
0003 001A0 NEWLINE_DESC: 
«WORD 3 
01 O€ 001A2 <BYTE 14, 1 
00000000" 001A4 .ADDRESS P.AAC 
.EXTRN OPER_NAME 
PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY 
R9,R1 
5E F5BC CE 9E 0000 MOVAB =2628(SP), SP 
58 08 AC dO 0000 MOVL §§ STRING_DESC, R11 
6 83 90008 TSTW (R11) 
03 13 00000 BEQL =s«sa1S$ 
04 AB D5 0000F TSTL  4(R11) 
03 12 00012 1$: BNEQ 2$ 
00E9 31 00014 BRW 14$ 
F8 AD 04 00017 28: CLRL_ WORK_DESC 
FC AD 3C AE 4 OOO1A MOVAB WORK “BUF, WORK_DESC+4 
SA FC AD p OO1F MOVL WORK DESC+4, PTR 
56 7C 00 3 CLRO 
50 04 BC46 00 00025 38: MOVL IT_MASKCIJ, RO 
7F 13 OO02A BEQL 
08 AE 50 D 99 C MOVL RO, MASK 
04 AE D4 000 “Cee 
6D 08 AE 06 =A a 4$: BBC J, MASK, 9$ 
50 56 0 039 ASHL 3 =E._s#5,_ «IT, RO 
50 04 AF CO 000 ADDL2 J, R 
bE 0290G6CF40 00 00041 MOVL OBER NAMECROJ, NAME 
6 AE f : tires BONE Pi NAME _DESC 
3 0000° cr 4 i MOVAB P.AAD, NAME_DESC+4 
D 11 0005 BRB 65 
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6A 0000' 
6A 0000° 
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F8 
000000006 
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F8 
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; Routine Size: 259 bytes, 


YVIWNNGS DOVIMPOyY 
>or MOocmmrmmn 


Routine Base: 


1 
1 
00 D 5 
Bi ot puns 
60 00 
34 Ag C 00 $ 
02 A8&4 ‘ 

8 1 Bis 
0000° CF 074 
sh Bk 

37 D4 0086 
0000" tr i ea A 

ce 3¢ 9008 

59 ¢ 0095 

59 § 0098 

58 28 00098 

$8 £0 Goong 

1F 3 000A6 
FC AD A3 OOOAB 
01 £F1 00081 
ro AD BS Gouar 
0A00 rf BO 0008 
01 7D G00¢¢ 
F8 AD 9F OOOC 
F8 AD 9F 000C8 
ovosaors Fp 900ce 

50 DO 000D8 

57 €9 000DB 

01 DO OOODE 

6B B61 O000E1 

G3 TF Gooes 
ooo) $F 3 Boues 

oS 8 tee? 
04 OOOFF 

50 04 00100 

04 00102 


SCODES + 0298 


N15 
ra 
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nog Bliss-32 Thee 
OPCOM. SRC JOPCOMUTIL .B32;1 


@NAME, NAME_DESC 
rr E, R 

(RO), NAME_DESC+4 
NAME ESC,"R 
2(REY LENI, RO 
RO, # 


NEWL INE _DE 
+ et Pi 
RO, PTR 
LEN 

EN 


$ 

SEPARATOR DESC, R9 

R9, @SEPARATOR_DESC+4, (PTR) 
R9, PTR 

R9, LEN 

R8, aa init (PTR) 


R 
RB. LEN 
#31, J, 4$ 
WORK_DESC+4 
1, Bi, I, $$ 
WORK_DESC 
#2560, WORK_DESC 
1, =(SP) 


C, Q@NEWLINE_DESC+4, (PTR) 
C, RO 


S 
s 


PTR, WORK_DESC 


#360891 

#5, SYSSGETMSG 
RO, STATU 
STATUS, 13$ 

#1 U 

(Rit), WORK_DESC 


(R11), WORK DESC 

#1537, STATOS 

WORK_DESC, aWORK_DESC+4, @4(R11) 
WORK- DESC, @0UTLEN 

STATOS, RO 


RO 
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16 
16-Sep-1984 01:37:47 AX-11 Bliss-32 V4. 
17865-1984 93:80:84 OPCOM. SRC JOPCOMUT i 
GLOBAL ROUTINE SEND_REPLY (RQCB) = 


1oe 


i Functional description: . 


This routine will send a reply to a specified mailbox. 


Input: 
RQCB : Address of an RQCB data structure 


Implicit Input: 
There is an MCB attached to the RQCB. 
Output: 
None. 
Implict output: 
A formatted message is sent to the mailbox specified by the RQCB. 
Side effects: 
None. 
Routine value: 


TRUE If a reply was sent. 

FALSE If a reply could not be sent. 
BEGIN ! Start of SEND REPLY 
MAP 

RQCB : Sref_bblock; ! RQCB data structure 
EXTERNAL LITERAL 

MCB_K_TYPE; ! MCB structure type 
EXTERNAL 


BYPASS _PRIV : $bblock, ! Mask with BYPASS priv set 
: $bblock, ! FAO control string descriptor 
GLOBAL_STATUS : BITVECTOR (32), 
CL_NOD : $ref_bblock, 
LCL_CSID; 


EXTERNAL ROUTINE 
CLUSUTIL_SYSTEMID_EQUAL : 
D FILE : Vv 


NOVALUE, 
SHARE_FAO_BUFFER, 
WRITE“LOG-FILE : NOVALUE; 


JSB_ROR1, 


LOCAL 


-——- OS 


16 
OPC OMUTIL 1h-s0 -1984 2:37:47 AX-11 Bliss-32 V4.0-7 Page 22 
veers 12-80-1884 93: 0:51 OPCOM.SRCTOPCOMITIL 208951 . (6) 
H 494 7 : MCB : grefbblog ° ! MCB data structure 
3; 7 10_STATUS : $Sbblock (8), ' 1/0 status block 
: 761 7 § MSG_SIZE : WORD, ! Size o reply message 
: 76 7 MSG_BUF : Sbblock COPCSK_MAXREADJ,! Message buffer 
; 7 3 MBX_ CHAN : WORD, ! Channel to reply mailbox 
; 764 7 2 ay, : Sbblock CMAX_DEV_NAM],! Mailbox device name buffer 
; 765 760 MBX_DES : goose .pl og ! Mailbox name descriptor 
; 761 DEV CHAR : $bblock D16$k_ LENGTH] |! Device characteristics buffer 
; 76 166 DEV_DESC : $desc_block, : Dev. char. buffer descriptor 
: 76 STATUS LONG; 
: 799 res § 
: aA 766 If operator is on another node, return success 
; os 768 if -GLOBAL_STATUS CGBLSTS_K_IN_VAXcLuster] 
; 79 0770 IF NOT CLUSUTIL_SYSTEMID_EQUAL (RQCB CROCB_T_SYSTEMIDJ, LCL_NOD CNOD_T_NODE_SYSTEMID]) 
; Af Ore RETURN TRUE; 
: Aa OF74 ; If no reply mailbox is specified, then return success. 
; 781 O76 iF .RQCB CROCB_W_REPLYMBX] EQL 0 
; 783 0778 RETURN (FALSE); 
; ree 3780 ; Check for a valid MCB. If none, then return false. 
: 787 078 MCB = .ROCB CROCB_L_MCB); 
; rae Boaz IF (.MCB EQL 0) OR T.MCB CMCB_B_TYPE] NEQ MCB_K_TYPE) ‘ « 
; 730 0785 RETURN (FALSE); 
: 9 0787 Format the reply mailbox name. 
: 79% 0789 2 MBX_DESC [0,0,32,0] = MAX_DEV_NAM: 
: 795 0790 2 MBX~DESC CDSC$A POINTER] = MBR_NAME; 
3 oe 144 IF Ror SFAO (MBR_FAO, MBX_DESC> MBX_DESC, .RQCB CRQCB_W_REPLYMBX)) 
; 198 O798 RETURN (FALSE); 
; 800 0795 i Enable BYPASS privilege, so that we will be able to access the user's 
; 801 0796 ! mailbox reserdless of whatever strange protection he might have decided 
: £08 144 to give it. 
; 80% 0799 if NOT (STATUS = $SETPRV (ENBFLG=1, PRVADR=BYPASS_PRIV)) 
; 4 pa0) , $signal_stop (.STATUS); 
: 808 $808 ' Declare a loop now that we have enabled the privs. We will use this 
3 308 paRe as a device to make sure that we disable the enhanced privs on any error. 
; 811 806 WHILE 1 
io ioe 
: 815 0810 i Create a buffer descriptor for the device characteristics, 


{$8-32_V4.0-74 Page 23 
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16 
OPC SOREOMUTIL 1B-Sep-1984 01:57:47 yayeat BL 


; 1§ 1} H and call SGETDEV to get the device characteristics. 

5 18 i DEV_DESC fe 0,32,0) = DIBSK_LENGTH; 

; 81 14 DEV-DESC COSCSA_POINTER) = BEV_CHAR; 

3 f 8 F My (STATUS = SGETDEV (DEVNAM=MBX_DESC, PRIBUF=DEV_DESC)) 

5 5 ¢ 7 , EXITLOOP; 

3 : ¢ $3 } Build the reply message. 

3 & § 0821 MSG_BUF COPCSB_MS_TYPE] = MSG$_OPREPLY; ! Set message type code 
3 $ ¢ MSG_BUF LOPCSW PS STATUS] = MCB pce MSGIDI; ' Set reply status 

; 828 G"BUF OPCSC_MS_RPLYID) = .RQCB-CRQCB_L_ROSTID); i Set user request id 
: 829 & MSG_SIZE = $BYTEOFFSET (OPCSL_MS_TEXT); 

; 850 825 IF T.MCB CMCB_L_TEXTLENJ-1) GTR 0 

; 831 : 6 THEN 

3; § § 7 & BEGIN 

3; § 828 4 CHSMOVE (.MCB CMCB_L_TEXTLENJ-1, ! Copy reply text to buffer 
; 834 iH 4 -MCB CMCB_L_TEXTPTRJ+1 ! but do not copy the 
; 835 0830 4 MSG_BUF COPCSL_MS_TEXTI i "bell® character. 

; 83 tty 4 MSG_SIZE = .MSG_SIZE + (.MCB CMCB_L_TEXTLENJ-1); 

; 838 83 END; 

; 839 0834 : 

; 840 0835 : Check the mailbox size against the reply message size. 

; 841 0836 ! If the mailbox is too small to accomodate the entire message, 

3 arg tH truncate the message to the mailbox size. 

> 844 0839 4 IF (.MSG_SIZE GTR .DEV_CHAR CDIB$W_DEVBUFSIZ]) 

; 845 0840 THEN 

; 846 0841 MSG_SIZE = .DEV_CHAR CDIB$W_DEVBUFSIZJ; 

3 ate ages : Assign a channel to the mailbox. 

; 850 0845 4 IF NOT (STATUS = SASSIGN (DEVNAM=MBX_DESC, CHAN=MBX_CHAN) ) 

; 851 0846 HEN 

3 He 0847 EXITLOOP; 

3; 0848 ! 

3 O38 st If debugging, check the logical and maybe write the message into the log file 

; 856 L 0851 ZIF XVARIANT NEQ 0 

; 857 U ttt XTHEN 

; 858 U 085 BEGIN 

; 523 U Bae OCAL 

; 860 U 0855 DBG_BUF : SBVECTOR (16), 

3 36) U 0826 DBG_DS : VECTOR C2, LONG]; 

3 ¢ U 89 DBG_DSC~([0) = 16; 

; 86 U 0858 DBG_DSC C1J = DBG_BUF; 

3; 864 U Bap IF TSTRNLOG (LOGNAM=ZASCID *OPCSDUMP_MAILBOX’, RSLBUF=DBG_DSC) EQL SS$_NORMAL) 
; 865 U 0 THEN 

; 308 U 0861 BEGIN 

: U § DBG_DSC £0} = .MSG SIZE; 

3 8 U 9BG-DSC C1) = MSG_BuF; ; ; 

3 +4 y 2 pum -LO6_FILE (DBG_DSC, ZASCID ‘= Sending reply message to user mailbox"); 
3; 871 U bed END; 

; 872 0 2F i 
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' 
Send the message to the mailbox. 


iF (STATUS = $Q10W yin } 5 A geen OR IO$M_NOW), 


loss = jo STATUS. 
Pi =" MSG 
P2 5 eu Berd 


)) 
THEN 
STATUS = .IO_STATUS (0,0,16,0]; 


i Display the status if debugging 


LIF XVARIANT NEQ 0 


RTHE 
BEGIN 
LOCAL 
DBG_BUF : SBVECTOR [16], 
BG_DSC VECTOR (2, LONG); 
DBG_DSC if = 16: 
DBG_D 1 


' Get 1/0 status 


DSC DBG_B 
IF TSTRNLOG (LOGNARCEASCID ‘OPCSDUMP_MAILBOX', RSLBUF=DBG_DSC) EQL SS$_NORMAL) 


NuRITE LOG_FILE (SHARE_FAO_BUFFER (Z%ASCID ‘status from qio to user mailbox !XL', .status)); 


MFI 

; Now, exit the loop anyway 
EXITLOOP; 

END; 


: Deassign the channel to the mailbox. 
SDASSGN (CHAN = .MBX_CHAN); 

Remove bypass privilege 

SSETPRV (ENBFLG=0, PRVADR=BYPASS_PRIV); 

: Return the I/0 status as the return value. 
RETURN (.STATUS); 
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ae te ri Pe OF bt a 


OPCOM.SRC 


ND f 

0,R1 

SSSeTPRV, R11 

6B(SP), SP 
OBAL_STATUS+1, 1$ 

#80, LTL_NOD, Ri 


SE 
sy 
=2 
G 
“ 


ROCB, R 
CLUSUTIL_SYSTEMID_EQUAL 
RO, 1$ 


#1, RO 
ROCB, R7 
46(R?) 
2$ 
198(R7), MCB 
#0, #8, 10(MCB), #MCB_K_TYPE 
55 
#64, MBX_DESC 
X'NAME, MBX_DESC+4 
46(R7), -(SP) 
_DESC 
MBX~DESC 
AO 


MBX—F 
#4, ~SYSSFAO 

RO, 2$ 

-(§P) 
BYPASS_PRIV 
#4, SYSSSETPRV 
0; STATUS 

US, 4$ 

STATUS 
#1, LIBSSTOP 


#116, DEV_DESC 
DEV CHAR, DEV_DESC+4 


DEV_DESC 
-(SP) 

MBX DESC 

#5, “SYS$GETDEV 

RO, STATUS 

STATUS, 7$ 

#9, MSG_BUF 

44(MCB); MSG_BUF +2 

i O(R7). MSG~BUF +4 
48(MCB)> #1 

#1, 48(MCB), RB 
52(mcB), RO 

RB, 1(RO), MSG_BUF+8 


R8, MSG SIZE 
MSG_SIZE, DEV_CHAR+6 


REPLY, Save R2,R3,R4,R5,R6,R7,RB,RI,=- 
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OPCSOPCOMUTIL 1B-3¢ =1984 01:37:47 AX-11 Bliss-32 V4.0-74 Page 26 
OO e008 1 ~8ep-19 4 94:37: 1 OPCOM. GRCLOPCOMUTIL 63551 . (6) 
04 18 DF BLEQU 6$ : 
SA 12 AE E MOVW DEV CHAR+6, MSG_SIZE : 0841 
7E 7C ES 6$ CLRQ =(SP) + 0845 
08 AE 9F E PUSHAB MBX_CHAN : 
008¢ E F EA PUSHAB MBX~DES : 
000000006 9 F E CALLS #4,~SYSS$ASSIGN : 
8 D F VL RO, STA ; 
B E F BLBC _—« STATUS, F 
— 7c FB CLRQ  =(SP) : 0876 
7E 7C FD RQ  =(SP) : 
7E 5A 3C OOOFF MOVZWL MSG_SIZc, -(SP) : 
ooDC ce F 001 AB MSG~BUF : 
— 7C 001 -(SP) : 
F AD 9F 001 PUSHAB 10 STATUS : 
7E 7 BF 3 0108 MOVZBL #1T2, =(SP) 3 
7E 28 «AE 3C 0010F MOVZ2WL MBX_CHAN, =(SP) ; 
7E D4 00113 LRL - : 
000000006 00 o¢ FB 00115 CALLS #12, SYS$QI0W : 
59 0 pO 0011C MOVL RO, STATUS : 
04 59 £9 OO11F BLBC us, 7$ : 
59 F8 AD 3C 01 2 MOVZWL 10 STATUS, STATUS : 0878 
7E 6E 3C 00126 7$ MOVZWL MBR_CHAN, -(SP) ; 0903 
000000006 00 01 FB 00129 CALLS #1, SYSSDASSGN : 
7E 7C 01 0 CLRQ = = (SP) : 0907 
00006 CF 9F 00132 PUSHAB BYPASS_PRIV : 
7E D4 00136 CLRL -(SP) : 
6B 04 FB 00138 CALLS #4, SYSS$SETPRV : 
50 59 DO 00138 MOVL STATUS, RO : 0911 
04 0013E RET : 
50 04 0013F 8$ CLRL RO : 0913 
04 00141 RET : 


; Routine Size: 322 bytes, Routine Base: $CODES + 0398 
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OPC OMUTIL 16-Sep-1984 01:37:47 AX-11 Bliss-32 V4.0-74 
vOL+000 1023-1984 12:50:51 OPCOM. SRCIOPCOMUTIL .859: 1 
920 


; 3 1 ! GLOBAL ROUTINE TRIM_LENGTH (IN_LEN, IN_PTR : REF VECTOR C,BYTEJ) = 
; § 31 1 !e+ 

: 4 4 : } Functional description: 

3 319 : } Return the length of a string without trailing blanks or nulls 
; 9 921 1 | Input: 

3 § 9 ‘ 7 $ 

* 2 9 1! IN_LEN =: Length of the string 

3 3 , 3 ! IN_PTR : Address of the string 

: 9 9206 1 | Implicit Input: 

3; § 9 2 1! 

3; 9 928 1! None. 

; 9 929 1! 

; 9 930 1 ! Output: 

: 9 3a 1! 

; 9 9 ; 1! None. 

Soe 8 gi eee 

: ! Implict output: 

: 941 0935 1! 

; 94 0936 1! None. 

; 94 0937 1! 

3 944 0938 1! Side effects: 

3; 945 0939 1! 

: 946 0940 1! None. 

: 947 0941 1! 

3; 968 0942 1 ! Routine value: 

; 949 0943 1! 

; 950 0944 1! Return the length of a string without trailing blanks. 

: 951 0945 1 !<- 

3 226 0946 1 

; 95 094 BEGIN ! Start of TRIM_LENGTH 
3 954 948 LOCAL 

; 955 949 IDX; 

: 956 0950 

3; 957 0951 IDX = .IN_LEN = 1; ' Vectors indexed 0:n-1 
: 958 0936 WHILE .IDR GEQ 0 

3; 959 095 dO 

; 960 0954 BEGIN 

; 961 0955 IF .IN_PTR C.IDX) NEQ XC" 

; 368 0956 

; 96 957 -IN_PTR C.IDX] NEQ 0 

3; 964 958 

3; 965 959 EXITLOOP; 

3; 966 0960 IDX = .IDX - 1; 

: 967 961 END; 

; 968 366 

3; 969 096 RETURN .IDX+1; 

; 970 0964 1 END; ! End of TRIM_LENGTH 


0000 00000 -ENTRY TRIM_LENGTH, Save nothing 


ne 


; 0914 


16 
se feta 
oe Eto 
20 08 BC40 91 00009 
08 : it 
08 BC40 9 Bat 
4 12 00014 
! St aig 
5 D6 QOOIA 3$: 
04 0001C 


; Routine Size: 29 bytes, Routine Base: S$CODES + 04DD 


Be 12:50: 


age Bliss-32 V4.0-74 
OPCOM. SRC JOPCOMUTIL.B32;1 


? 

1 

J. INLLEN, 10% 
@IN_PTRCIDXI, #32 
$in_prrci0x3 


i$. 
RO 


8 
3 


OPC OMUTIL 

Obs 2008 14-Sep P= 1984 
; Oo 5 ND 

; 97 $388 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 
: SCODES 12% NOVEC,NOWRT, RD , EXE,NOSHR, 
; SOWNS 424 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; SPLITS 17 NOVEC, *NOWRT, RD ,NOEXE,NOSHR, 
3 Library Statistics 

Doers eo Wi ae Symbols -<------ 

3 File Total Loaded Percent 

: _$255$DUA28:(SYSLIBILIB8.L32;1 18619 37 0 

; ~$255$DUA28: COPCOM. OBJ JOPCOMLIB. L32;1 633 41 6 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OPCOMUTIL/OBJ=OBJ$:OPCOMUTIL MSRC$:OPCOMUTIL/UPDATE=(ENHS$:OPCOMUTIL) 
1274 code + 441 data bytes 
00:27 


Size: 
Run Time ys 
Elapsed fees 01:17. 
Lines/CPU Min: 2134 
Lexenes/CPU-Rin: 21354 
penaty Used: 162 pages 
Compilation Complete 


COMMAND QUALIFIERS 


18-Sep-19 


2 93:85:8) Yocom. 


! End of OPCOMUTIL 
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Pages Processing 

Mapped Time 

1000 00:01.8 
43 00:00.8 
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